home *** CD-ROM | disk | FTP | other *** search
/ MaxiMac 2000 January / MaxiMac 98.iso / KitWeb / AOL CD / generalmodem / Original45s / GeneralModem / GeneralModem
Encoding:
Text File  |  1999-07-28  |  685 b   |  45 lines  |  [DATA/AOp3]
  1.  
  2. ACCESS serial
  3.  
  4.  
  5. Label Connect
  6.     GOSUB ModemSetup
  7.     GOSUB ModemDial
  8.     picture 3
  9.     GOSUB ConnectWait
  10.     msg 1003
  11. return
  12.  
  13. Label ModemSetup
  14.     msg 1000
  15.     picture 1
  16.     extern setup
  17.     wait 3 for 
  18.     {
  19.         "OK"             : msg 1001; return
  20.         "ERROR"         : failure 1099
  21.     }
  22. failure 1100
  23.  
  24.  
  25. Label ModemDial
  26.     msg 1002
  27.     extern dial
  28. return
  29.  
  30. Label ConnectWait
  31.     wait 45 for
  32.     {
  33.         "CONNECT"         : extern connected ; return
  34.         "NO CARRIER"     : failure 1101
  35.         "CARRIER"        : extern connected ; return
  36.         "NO DIAL TONE"    : failure 1102
  37.         "NO DIALTONE"    : failure 1102
  38.         "NO ANSWER"        : failure 1103
  39.         "VOICE"            : failure 1104
  40.         "BUSY"            : failure 1105
  41.         "ERROR"            : failure 1106
  42.     }
  43. failure 1120
  44.  
  45.